/ MacHack 1996 / MacHack 1996.toast / Hacks / Hacks ’87 / Source ƒ.sit / Source ƒ / XLISP ƒ / XLISP 1.7 C SRCS / xlprin.c

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 08 78 6c 70 72 69 6e | 2e 63 00 00 00 00 00 00 |..xlprin|.c......|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 00 00 00 | 00 01 00 00 00 00 00 00 |.TEXT...|........|
|00000050| 00 00 00 00 00 0d 69 00 | 00 01 7e 9b 2f ae cc 9b |......i.|..~./...|
|00000060| 2f ae cc 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |/.......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 b1 9f 00 00 |........|........|
|00000080| 2f 2a 20 78 6c 70 72 69 | 6e 74 20 2d 20 78 6c 69 |/* xlpri|nt - xli|
|00000090| 73 70 20 70 72 69 6e 74 | 20 72 6f 75 74 69 6e 65 |sp print| routine|
|000000a0| 20 2a 2f 0d 2f 2a 09 43 | 6f 70 79 72 69 67 68 74 | */./*.C|opyright|
|000000b0| 20 28 63 29 20 31 39 38 | 35 2c 20 62 79 20 44 61 | (c) 198|5, by Da|
|000000c0| 76 69 64 20 4d 69 63 68 | 61 65 6c 20 42 65 74 7a |vid Mich|ael Betz|
|000000d0| 0d 09 41 6c 6c 20 52 69 | 67 68 74 73 20 52 65 73 |..All Ri|ghts Res|
|000000e0| 65 72 76 65 64 0d 09 50 | 65 72 6d 69 73 73 69 6f |erved..P|ermissio|
|000000f0| 6e 20 69 73 20 67 72 61 | 6e 74 65 64 20 66 6f 72 |n is gra|nted for|
|00000100| 20 75 6e 72 65 73 74 72 | 69 63 74 65 64 20 6e 6f | unrestr|icted no|
|00000110| 6e 2d 63 6f 6d 6d 65 72 | 63 69 61 6c 20 75 73 65 |n-commer|cial use|
|00000120| 09 2a 2f 0d 0d 23 69 6e | 63 6c 75 64 65 20 22 78 |.*/..#in|clude "x|
|00000130| 6c 69 73 70 2e 68 22 0d | 0d 23 69 66 64 65 66 20 |lisp.h".|.#ifdef |
|00000140| 4d 45 47 41 4d 41 58 0d | 6f 76 65 72 6c 61 79 20 |MEGAMAX.|overlay |
|00000150| 22 69 6f 22 0d 23 65 6e | 64 69 66 0d 0d 2f 2a 20 |"io".#en|dif../* |
|00000160| 65 78 74 65 72 6e 61 6c | 20 76 61 72 69 61 62 6c |external| variabl|
|00000170| 65 73 20 2a 2f 0d 65 78 | 74 65 72 6e 20 63 68 61 |es */.ex|tern cha|
|00000180| 72 20 62 75 66 5b 5d 3b | 0d 0d 2f 2a 20 78 6c 70 |r buf[];|../* xlp|
|00000190| 72 69 6e 74 20 2d 20 70 | 72 69 6e 74 20 61 6e 20 |rint - p|rint an |
|000001a0| 78 6c 69 73 70 20 76 61 | 6c 75 65 20 2a 2f 0d 78 |xlisp va|lue */.x|
|000001b0| 6c 70 72 69 6e 74 28 66 | 70 74 72 2c 76 70 74 72 |lprint(f|ptr,vptr|
|000001c0| 2c 66 6c 61 67 29 0d 20 | 20 4e 4f 44 45 20 2a 66 |,flag). | NODE *f|
|000001d0| 70 74 72 2c 2a 76 70 74 | 72 3b 20 69 6e 74 20 66 |ptr,*vpt|r; int f|
|000001e0| 6c 61 67 3b 0d 7b 0d 20 | 20 20 20 4e 4f 44 45 20 |lag;.{. |   NODE |
|000001f0| 2a 6e 70 74 72 2c 2a 6e | 65 78 74 3b 0d 20 20 20 |*nptr,*n|ext;.   |
|00000200| 20 69 6e 74 20 6e 2c 69 | 3b 0d 0d 20 20 20 20 2f | int n,i|;..    /|
|00000210| 2a 20 70 72 69 6e 74 20 | 6e 69 6c 20 2a 2f 0d 20 |* print |nil */. |
|00000220| 20 20 20 69 66 20 28 76 | 70 74 72 20 3d 3d 20 4e |   if (v|ptr == N|
|00000230| 49 4c 29 20 7b 0d 09 78 | 6c 70 75 74 73 74 72 28 |IL) {..x|lputstr(|
|00000240| 66 70 74 72 2c 22 4e 49 | 4c 22 29 3b 0d 09 72 65 |fptr,"NI|L");..re|
|00000250| 74 75 72 6e 3b 0d 20 20 | 20 20 7d 0d 0d 20 20 20 |turn;.  |  }..   |
|00000260| 20 2f 2a 20 63 68 65 63 | 6b 20 76 61 6c 75 65 20 | /* chec|k value |
|00000270| 74 79 70 65 20 2a 2f 0d | 20 20 20 20 73 77 69 74 |type */.|    swit|
|00000280| 63 68 20 28 6e 74 79 70 | 65 28 76 70 74 72 29 29 |ch (ntyp|e(vptr))|
|00000290| 20 7b 0d 20 20 20 20 63 | 61 73 65 20 53 55 42 52 | {.    c|ase SUBR|
|000002a0| 3a 0d 09 20 20 20 20 70 | 75 74 61 74 6d 28 66 70 |:..    p|utatm(fp|
|000002b0| 74 72 2c 22 53 75 62 72 | 22 2c 76 70 74 72 29 3b |tr,"Subr|",vptr);|
|000002c0| 0d 09 20 20 20 20 62 72 | 65 61 6b 3b 0d 20 20 20 |..    br|eak;.   |
|000002d0| 20 63 61 73 65 20 46 53 | 55 42 52 3a 0d 09 20 20 | case FS|UBR:..  |
|000002e0| 20 20 70 75 74 61 74 6d | 28 66 70 74 72 2c 22 46 |  putatm|(fptr,"F|
|000002f0| 53 75 62 72 22 2c 76 70 | 74 72 29 3b 0d 09 20 20 |Subr",vp|tr);..  |
|00000300| 20 20 62 72 65 61 6b 3b | 0d 20 20 20 20 63 61 73 |  break;|.    cas|
|00000310| 65 20 4c 49 53 54 3a 0d | 09 20 20 20 20 78 6c 70 |e LIST:.|.    xlp|
|00000320| 75 74 63 28 66 70 74 72 | 2c 27 28 27 29 3b 0d 09 |utc(fptr|,'(');..|
|00000330| 20 20 20 20 66 6f 72 20 | 28 6e 70 74 72 20 3d 20 |    for |(nptr = |
|00000340| 76 70 74 72 3b 20 6e 70 | 74 72 20 21 3d 20 4e 49 |vptr; np|tr != NI|
|00000350| 4c 3b 20 6e 70 74 72 20 | 3d 20 6e 65 78 74 29 20 |L; nptr |= next) |
|00000360| 7b 0d 09 20 20 20 20 20 | 20 20 20 78 6c 70 72 69 |{..     |   xlpri|
|00000370| 6e 74 28 66 70 74 72 2c | 63 61 72 28 6e 70 74 72 |nt(fptr,|car(nptr|
|00000380| 29 2c 66 6c 61 67 29 3b | 0d 09 09 69 66 20 28 6e |),flag);|...if (n|
|00000390| 65 78 74 20 3d 20 63 64 | 72 28 6e 70 74 72 29 29 |ext = cd|r(nptr))|
|000003a0| 0d 09 09 20 20 20 20 69 | 66 20 28 63 6f 6e 73 70 |...    i|f (consp|
|000003b0| 28 6e 65 78 74 29 29 0d | 09 09 09 78 6c 70 75 74 |(next)).|...xlput|
|000003c0| 63 28 66 70 74 72 2c 27 | 20 27 29 3b 0d 09 09 20 |c(fptr,'| ');... |
|000003d0| 20 20 20 65 6c 73 65 20 | 7b 0d 09 09 09 78 6c 70 |   else |{....xlp|
|000003e0| 75 74 73 74 72 28 66 70 | 74 72 2c 22 20 2e 20 22 |utstr(fp|tr," . "|
|000003f0| 29 3b 0d 09 09 09 78 6c | 70 72 69 6e 74 28 66 70 |);....xl|print(fp|
|00000400| 74 72 2c 6e 65 78 74 2c | 66 6c 61 67 29 3b 0d 09 |tr,next,|flag);..|
|00000410| 09 09 62 72 65 61 6b 3b | 0d 09 09 20 20 20 20 7d |..break;|...    }|
|00000420| 0d 09 20 20 20 20 7d 0d | 09 20 20 20 20 78 6c 70 |..    }.|.    xlp|
|00000430| 75 74 63 28 66 70 74 72 | 2c 27 29 27 29 3b 0d 09 |utc(fptr|,')');..|
|00000440| 20 20 20 20 62 72 65 61 | 6b 3b 0d 20 20 20 20 63 |    brea|k;.    c|
|00000450| 61 73 65 20 53 59 4d 3a | 0d 09 20 20 20 20 78 6c |ase SYM:|..    xl|
|00000460| 70 75 74 73 74 72 28 66 | 70 74 72 2c 67 65 74 73 |putstr(f|ptr,gets|
|00000470| 74 72 69 6e 67 28 67 65 | 74 70 6e 61 6d 65 28 76 |tring(ge|tpname(v|
|00000480| 70 74 72 29 29 29 3b 0d | 09 20 20 20 20 62 72 65 |ptr)));.|.    bre|
|00000490| 61 6b 3b 0d 20 20 20 20 | 63 61 73 65 20 49 4e 54 |ak;.    |case INT|
|000004a0| 3a 0d 09 20 20 20 20 70 | 75 74 64 65 63 28 66 70 |:..    p|utdec(fp|
|000004b0| 74 72 2c 67 65 74 66 69 | 78 6e 75 6d 28 76 70 74 |tr,getfi|xnum(vpt|
|000004c0| 72 29 29 3b 0d 09 20 20 | 20 20 62 72 65 61 6b 3b |r));..  |  break;|
|000004d0| 0d 20 20 20 20 63 61 73 | 65 20 46 4c 4f 41 54 3a |.    cas|e FLOAT:|
|000004e0| 0d 09 20 20 20 20 70 75 | 74 66 6c 6f 61 74 28 66 |..    pu|tfloat(f|
|000004f0| 70 74 72 2c 67 65 74 66 | 6c 6f 6e 75 6d 28 76 70 |ptr,getf|lonum(vp|
|00000500| 74 72 29 29 3b 0d 09 20 | 20 20 20 62 72 65 61 6b |tr));.. |   break|
|00000510| 3b 0d 20 20 20 20 63 61 | 73 65 20 53 54 52 3a 0d |;.    ca|se STR:.|
|00000520| 09 20 20 20 20 69 66 20 | 28 66 6c 61 67 29 0d 09 |.    if |(flag)..|
|00000530| 09 70 75 74 73 74 72 69 | 6e 67 28 66 70 74 72 2c |.putstri|ng(fptr,|
|00000540| 67 65 74 73 74 72 69 6e | 67 28 76 70 74 72 29 29 |getstrin|g(vptr))|
|00000550| 3b 0d 09 20 20 20 20 65 | 6c 73 65 0d 09 09 78 6c |;..    e|lse...xl|
|00000560| 70 75 74 73 74 72 28 66 | 70 74 72 2c 67 65 74 73 |putstr(f|ptr,gets|
|00000570| 74 72 69 6e 67 28 76 70 | 74 72 29 29 3b 0d 09 20 |tring(vp|tr));.. |
|00000580| 20 20 20 62 72 65 61 6b | 3b 0d 20 20 20 20 63 61 |   break|;.    ca|
|00000590| 73 65 20 46 50 54 52 3a | 0d 09 20 20 20 20 70 75 |se FPTR:|..    pu|
|000005a0| 74 61 74 6d 28 66 70 74 | 72 2c 22 46 69 6c 65 22 |tatm(fpt|r,"File"|
|000005b0| 2c 76 70 74 72 29 3b 0d | 09 20 20 20 20 62 72 65 |,vptr);.|.    bre|
|000005c0| 61 6b 3b 0d 20 20 20 20 | 63 61 73 65 20 4f 42 4a |ak;.    |case OBJ|
|000005d0| 3a 0d 09 20 20 20 20 70 | 75 74 61 74 6d 28 66 70 |:..    p|utatm(fp|
|000005e0| 74 72 2c 22 4f 62 6a 65 | 63 74 22 2c 76 70 74 72 |tr,"Obje|ct",vptr|
|000005f0| 29 3b 0d 09 20 20 20 20 | 62 72 65 61 6b 3b 0d 20 |);..    |break;. |
|00000600| 20 20 20 63 61 73 65 20 | 56 45 43 54 3a 0d 09 20 |   case |VECT:.. |
|00000610| 20 20 20 78 6c 70 75 74 | 63 28 66 70 74 72 2c 27 |   xlput|c(fptr,'|
|00000620| 23 27 29 3b 20 78 6c 70 | 75 74 63 28 66 70 74 72 |#'); xlp|utc(fptr|
|00000630| 2c 27 28 27 29 3b 0d 09 | 20 20 20 20 66 6f 72 20 |,'(');..|    for |
|00000640| 28 69 20 3d 20 30 2c 20 | 6e 20 3d 20 67 65 74 73 |(i = 0, |n = gets|
|00000650| 69 7a 65 28 76 70 74 72 | 29 3b 20 6e 2d 2d 20 3e |ize(vptr|); n-- >|
|00000660| 20 30 3b 20 29 20 7b 0d | 09 09 78 6c 70 72 69 6e | 0; ) {.|..xlprin|
|00000670| 74 28 66 70 74 72 2c 67 | 65 74 65 6c 65 6d 65 6e |t(fptr,g|etelemen|
|00000680| 74 28 76 70 74 72 2c 69 | 2b 2b 29 2c 66 6c 61 67 |t(vptr,i|++),flag|
|00000690| 29 3b 0d 09 09 69 66 20 | 28 6e 29 20 78 6c 70 75 |);...if |(n) xlpu|
|000006a0| 74 63 28 66 70 74 72 2c | 27 20 27 29 3b 0d 09 20 |tc(fptr,|' ');.. |
|000006b0| 20 20 20 7d 0d 09 20 20 | 20 20 78 6c 70 75 74 63 |   }..  |  xlputc|
|000006c0| 28 66 70 74 72 2c 27 29 | 27 29 3b 0d 09 20 20 20 |(fptr,')|');..   |
|000006d0| 20 62 72 65 61 6b 3b 0d | 20 20 20 20 63 61 73 65 | break;.|    case|
|000006e0| 20 46 52 45 45 3a 0d 09 | 20 20 20 20 70 75 74 61 | FREE:..|    puta|
|000006f0| 74 6d 28 66 70 74 72 2c | 22 46 72 65 65 22 2c 76 |tm(fptr,|"Free",v|
|00000700| 70 74 72 29 3b 0d 09 20 | 20 20 20 62 72 65 61 6b |ptr);.. |   break|
|00000710| 3b 0d 20 20 20 20 64 65 | 66 61 75 6c 74 3a 0d 09 |;.    de|fault:..|
|00000720| 20 20 20 20 70 75 74 61 | 74 6d 28 66 70 74 72 2c |    puta|tm(fptr,|
|00000730| 22 46 6f 6f 22 2c 76 70 | 74 72 29 3b 0d 09 20 20 |"Foo",vp|tr);..  |
|00000740| 20 20 62 72 65 61 6b 3b | 0d 20 20 20 20 7d 0d 7d |  break;|.    }.}|
|00000750| 0d 0d 2f 2a 20 78 6c 74 | 65 72 70 72 69 20 2d 20 |../* xlt|erpri - |
|00000760| 74 65 72 6d 69 6e 61 74 | 65 20 74 68 65 20 63 75 |terminat|e the cu|
|00000770| 72 72 65 6e 74 20 70 72 | 69 6e 74 20 6c 69 6e 65 |rrent pr|int line|
|00000780| 20 2a 2f 0d 78 6c 74 65 | 72 70 72 69 28 66 70 74 | */.xlte|rpri(fpt|
|00000790| 72 29 0d 20 20 4e 4f 44 | 45 20 2a 66 70 74 72 3b |r).  NOD|E *fptr;|
|000007a0| 0d 7b 0d 20 20 20 20 78 | 6c 70 75 74 63 28 66 70 |.{.    x|lputc(fp|
|000007b0| 74 72 2c 27 5c 6e 27 29 | 3b 0d 7d 0d 0d 2f 2a 20 |tr,'\n')|;.}../* |
|000007c0| 78 6c 70 75 74 73 74 72 | 20 2d 20 6f 75 74 70 75 |xlputstr| - outpu|
|000007d0| 74 20 61 20 73 74 72 69 | 6e 67 20 2a 2f 0d 78 6c |t a stri|ng */.xl|
|000007e0| 70 75 74 73 74 72 28 66 | 70 74 72 2c 73 74 72 29 |putstr(f|ptr,str)|
|000007f0| 0d 20 20 4e 4f 44 45 20 | 2a 66 70 74 72 3b 20 63 |.  NODE |*fptr; c|
|00000800| 68 61 72 20 2a 73 74 72 | 3b 0d 7b 0d 20 20 20 20 |har *str|;.{.    |
|00000810| 77 68 69 6c 65 20 28 2a | 73 74 72 29 0d 09 78 6c |while (*|str)..xl|
|00000820| 70 75 74 63 28 66 70 74 | 72 2c 2a 73 74 72 2b 2b |putc(fpt|r,*str++|
|00000830| 29 3b 0d 7d 0d 0d 2f 2a | 20 70 75 74 73 74 72 69 |);.}../*| putstri|
|00000840| 6e 67 20 2d 20 6f 75 74 | 70 75 74 20 61 20 73 74 |ng - out|put a st|
|00000850| 72 69 6e 67 20 2a 2f 0d | 4c 4f 43 41 4c 20 70 75 |ring */.|LOCAL pu|
|00000860| 74 73 74 72 69 6e 67 28 | 66 70 74 72 2c 73 74 72 |tstring(|fptr,str|
|00000870| 29 0d 20 20 4e 4f 44 45 | 20 2a 66 70 74 72 3b 20 |).  NODE| *fptr; |
|00000880| 63 68 61 72 20 2a 73 74 | 72 3b 0d 7b 0d 20 20 20 |char *st|r;.{.   |
|00000890| 20 69 6e 74 20 63 68 3b | 0d 0d 20 20 20 20 2f 2a | int ch;|..    /*|
|000008a0| 20 6f 75 74 70 75 74 20 | 74 68 65 20 69 6e 69 74 | output |the init|
|000008b0| 69 61 6c 20 71 75 6f 74 | 65 20 2a 2f 0d 20 20 20 |ial quot|e */.   |
|000008c0| 20 78 6c 70 75 74 63 28 | 66 70 74 72 2c 27 22 27 | xlputc(|fptr,'"'|
|000008d0| 29 3b 0d 0d 20 20 20 20 | 2f 2a 20 6f 75 74 70 75 |);..    |/* outpu|
|000008e0| 74 20 65 61 63 68 20 63 | 68 61 72 61 63 74 65 72 |t each c|haracter|
|000008f0| 20 69 6e 20 74 68 65 20 | 73 74 72 69 6e 67 20 2a | in the |string *|
|00000900| 2f 0d 20 20 20 20 77 68 | 69 6c 65 20 28 63 68 20 |/.    wh|ile (ch |
|00000910| 3d 20 2a 73 74 72 2b 2b | 29 0d 0d 09 2f 2a 20 63 |= *str++|).../* c|
|00000920| 68 65 63 6b 20 66 6f 72 | 20 61 20 63 6f 6e 74 72 |heck for| a contr|
|00000930| 6f 6c 20 63 68 61 72 61 | 63 74 65 72 20 2a 2f 0d |ol chara|cter */.|
|00000940| 09 69 66 20 28 63 68 20 | 3c 20 30 34 30 20 7c 7c |.if (ch |< 040 |||
|00000950| 20 63 68 20 3d 3d 20 27 | 5c 5c 27 29 20 7b 0d 09 | ch == '|\\') {..|
|00000960| 20 20 20 20 78 6c 70 75 | 74 63 28 66 70 74 72 2c |    xlpu|tc(fptr,|
|00000970| 27 5c 5c 27 29 3b 0d 09 | 20 20 20 20 73 77 69 74 |'\\');..|    swit|
|00000980| 63 68 20 28 63 68 29 20 | 7b 0d 09 20 20 20 20 63 |ch (ch) |{..    c|
|00000990| 61 73 65 20 27 5c 30 33 | 33 27 3a 0d 09 09 20 20 |ase '\03|3':...  |
|000009a0| 20 20 78 6c 70 75 74 63 | 28 66 70 74 72 2c 27 65 |  xlputc|(fptr,'e|
|000009b0| 27 29 3b 0d 09 09 20 20 | 20 20 62 72 65 61 6b 3b |');...  |  break;|
|000009c0| 0d 09 20 20 20 20 63 61 | 73 65 20 27 5c 6e 27 3a |..    ca|se '\n':|
|000009d0| 0d 09 09 20 20 20 20 78 | 6c 70 75 74 63 28 66 70 |...    x|lputc(fp|
|000009e0| 74 72 2c 27 6e 27 29 3b | 0d 09 09 20 20 20 20 62 |tr,'n');|...    b|
|000009f0| 72 65 61 6b 3b 0d 23 69 | 66 6e 64 65 66 20 4d 50 |reak;.#i|fndef MP|
|00000a00| 57 0d 09 20 20 20 20 63 | 61 73 65 20 27 5c 72 27 |W..    c|ase '\r'|
|00000a10| 3a 0d 09 09 20 20 20 20 | 78 6c 70 75 74 63 28 66 |:...    |xlputc(f|
|00000a20| 70 74 72 2c 27 72 27 29 | 3b 0d 09 09 20 20 20 20 |ptr,'r')|;...    |
|00000a30| 62 72 65 61 6b 3b 0d 23 | 65 6e 64 69 66 0d 09 20 |break;.#|endif.. |
|00000a40| 20 20 20 63 61 73 65 20 | 27 5c 74 27 3a 0d 09 09 |   case |'\t':...|
|00000a50| 20 20 20 20 78 6c 70 75 | 74 63 28 66 70 74 72 2c |    xlpu|tc(fptr,|
|00000a60| 27 74 27 29 3b 0d 09 09 | 20 20 20 20 62 72 65 61 |'t');...|    brea|
|00000a70| 6b 3b 0d 09 20 20 20 20 | 63 61 73 65 20 27 5c 5c |k;..    |case '\\|
|00000a80| 27 3a 0d 09 09 20 20 20 | 20 78 6c 70 75 74 63 28 |':...   | xlputc(|
|00000a90| 66 70 74 72 2c 27 5c 5c | 27 29 3b 0d 09 09 20 20 |fptr,'\\|');...  |
|00000aa0| 20 20 62 72 65 61 6b 3b | 0d 09 20 20 20 20 64 65 |  break;|..    de|
|00000ab0| 66 61 75 6c 74 3a 0d 09 | 09 20 20 20 20 70 75 74 |fault:..|.    put|
|00000ac0| 6f 63 74 28 66 70 74 72 | 2c 63 68 29 3b 0d 09 09 |oct(fptr|,ch);...|
|00000ad0| 20 20 20 20 62 72 65 61 | 6b 3b 0d 09 20 20 20 20 |    brea|k;..    |
|00000ae0| 7d 0d 09 7d 0d 0d 09 2f | 2a 20 6f 75 74 70 75 74 |}..}.../|* output|
|00000af0| 20 61 20 6e 6f 72 6d 61 | 6c 20 63 68 61 72 61 63 | a norma|l charac|
|00000b00| 74 65 72 20 2a 2f 0d 09 | 65 6c 73 65 0d 09 20 20 |ter */..|else..  |
|00000b10| 20 20 78 6c 70 75 74 63 | 28 66 70 74 72 2c 63 68 |  xlputc|(fptr,ch|
|00000b20| 29 3b 0d 0d 20 20 20 20 | 2f 2a 20 6f 75 74 70 75 |);..    |/* outpu|
|00000b30| 74 20 74 68 65 20 74 65 | 72 6d 69 6e 61 74 69 6e |t the te|rminatin|
|00000b40| 67 20 71 75 6f 74 65 20 | 2a 2f 0d 20 20 20 20 78 |g quote |*/.    x|
|00000b50| 6c 70 75 74 63 28 66 70 | 74 72 2c 27 22 27 29 3b |lputc(fp|tr,'"');|
|00000b60| 0d 7d 0d 0d 2f 2a 20 70 | 75 74 61 74 6d 20 2d 20 |.}../* p|utatm - |
|00000b70| 6f 75 74 70 75 74 20 61 | 6e 20 61 74 6f 6d 20 2a |output a|n atom *|
|00000b80| 2f 0d 4c 4f 43 41 4c 20 | 70 75 74 61 74 6d 28 66 |/.LOCAL |putatm(f|
|00000b90| 70 74 72 2c 74 61 67 2c | 76 61 6c 29 0d 20 20 4e |ptr,tag,|val).  N|
|00000ba0| 4f 44 45 20 2a 66 70 74 | 72 3b 20 63 68 61 72 20 |ODE *fpt|r; char |
|00000bb0| 2a 74 61 67 3b 20 4e 4f | 44 45 20 2a 76 61 6c 3b |*tag; NO|DE *val;|
|00000bc0| 0d 7b 0d 20 20 20 20 73 | 70 72 69 6e 74 66 28 62 |.{.    s|printf(b|
|00000bd0| 75 66 2c 22 23 3c 25 73 | 3a 20 23 22 2c 74 61 67 |uf,"#<%s|: #",tag|
|00000be0| 29 3b 20 78 6c 70 75 74 | 73 74 72 28 66 70 74 72 |); xlput|str(fptr|
|00000bf0| 2c 62 75 66 29 3b 0d 20 | 20 20 20 73 70 72 69 6e |,buf);. |   sprin|
|00000c00| 74 66 28 62 75 66 2c 41 | 46 4d 54 2c 76 61 6c 29 |tf(buf,A|FMT,val)|
|00000c10| 3b 20 78 6c 70 75 74 73 | 74 72 28 66 70 74 72 2c |; xlputs|tr(fptr,|
|00000c20| 62 75 66 29 3b 0d 20 20 | 20 20 78 6c 70 75 74 63 |buf);.  |  xlputc|
|00000c30| 28 66 70 74 72 2c 27 3e | 27 29 3b 0d 7d 0d 0d 2f |(fptr,'>|');.}../|
|00000c40| 2a 20 70 75 74 64 65 63 | 20 2d 20 6f 75 74 70 75 |* putdec| - outpu|
|00000c50| 74 20 61 20 64 65 63 69 | 6d 61 6c 20 6e 75 6d 62 |t a deci|mal numb|
|00000c60| 65 72 20 2a 2f 0d 4c 4f | 43 41 4c 20 70 75 74 64 |er */.LO|CAL putd|
|00000c70| 65 63 28 66 70 74 72 2c | 6e 29 0d 20 20 4e 4f 44 |ec(fptr,|n).  NOD|
|00000c80| 45 20 2a 66 70 74 72 3b | 20 46 49 58 4e 55 4d 20 |E *fptr;| FIXNUM |
|00000c90| 6e 3b 0d 7b 0d 20 20 20 | 20 73 70 72 69 6e 74 66 |n;.{.   | sprintf|
|00000ca0| 28 62 75 66 2c 49 46 4d | 54 2c 6e 29 3b 0d 20 20 |(buf,IFM|T,n);.  |
|00000cb0| 20 20 78 6c 70 75 74 73 | 74 72 28 66 70 74 72 2c |  xlputs|tr(fptr,|
|00000cc0| 62 75 66 29 3b 0d 7d 0d | 0d 2f 2a 20 70 75 74 66 |buf);.}.|./* putf|
|00000cd0| 6c 6f 61 74 20 2d 20 6f | 75 74 70 75 74 20 61 20 |loat - o|utput a |
|00000ce0| 66 6c 6f 61 74 69 6e 67 | 20 70 6f 69 6e 74 20 6e |floating| point n|
|00000cf0| 75 6d 62 65 72 20 2a 2f | 0d 4c 4f 43 41 4c 20 70 |umber */|.LOCAL p|
|00000d00| 75 74 66 6c 6f 61 74 28 | 66 70 74 72 2c 6e 29 0d |utfloat(|fptr,n).|
|00000d10| 20 20 4e 4f 44 45 20 2a | 66 70 74 72 3b 20 46 4c |  NODE *|fptr; FL|
|00000d20| 4f 4e 55 4d 20 6e 3b 0d | 7b 0d 20 20 20 20 73 70 |ONUM n;.|{.    sp|
|00000d30| 72 69 6e 74 66 28 62 75 | 66 2c 22 25 67 22 2c 6e |rintf(bu|f,"%g",n|
|00000d40| 29 3b 0d 20 20 20 20 78 | 6c 70 75 74 73 74 72 28 |);.    x|lputstr(|
|00000d50| 66 70 74 72 2c 62 75 66 | 29 3b 0d 7d 0d 0d 2f 2a |fptr,buf|);.}../*|
|00000d60| 20 70 75 74 6f 63 74 20 | 2d 20 6f 75 74 70 75 74 | putoct |- output|
|00000d70| 20 61 6e 20 6f 63 74 61 | 6c 20 62 79 74 65 20 76 | an octa|l byte v|
|00000d80| 61 6c 75 65 20 2a 2f 0d | 4c 4f 43 41 4c 20 70 75 |alue */.|LOCAL pu|
|00000d90| 74 6f 63 74 28 66 70 74 | 72 2c 6e 29 0d 20 20 4e |toct(fpt|r,n).  N|
|00000da0| 4f 44 45 20 2a 66 70 74 | 72 3b 20 69 6e 74 20 6e |ODE *fpt|r; int n|
|00000db0| 3b 0d 7b 0d 20 20 20 20 | 73 70 72 69 6e 74 66 28 |;.{.    |sprintf(|
|00000dc0| 62 75 66 2c 22 25 30 33 | 6f 22 2c 6e 29 3b 0d 20 |buf,"%03|o",n);. |
|00000dd0| 20 20 20 78 6c 70 75 74 | 73 74 72 28 66 70 74 72 |   xlput|str(fptr|
|00000de0| 2c 62 75 66 29 3b 0d 7d | 0d 00 00 00 00 00 00 00 |,buf);.}|........|
|00000df0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e00| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00000e10| 66 2c 49 46 4d 54 2c 6e | 29 3b 0d 20 20 20 20 78 |f,IFMT,n|);.    x|
|00000e20| 6c 70 75 74 73 74 72 28 | 66 70 74 72 2c 62 75 66 |lputstr(|fptr,buf|
|00000e30| 08 78 6c 70 72 69 6e 2e | 63 00 02 00 00 00 54 45 |.xlprin.|c.....TE|
|00000e40| 58 54 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |XT......|........|
|00000e50| 00 00 54 45 58 54 00 00 | 00 00 00 00 00 00 00 00 |..TEXT..|........|
|00000e60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e70| 00 00 9b 2f 59 3c 00 00 | 0d 69 00 00 01 7e 20 4e |.../Y<..|.i...~ N|
|00000e80| 4f 44 45 20 2a 66 70 74 | 72 3b 20 46 4c 4f 4e 55 |ODE *fpt|r; FLONU|
|00000e90| 4d 20 6e 3b 0d 7b 0d 20 | 20 20 20 73 70 72 69 6e |M n;.{. |   sprin|
|00000ea0| 74 66 28 62 75 66 2c 22 | 25 67 22 2c 6e 29 3b 0d |tf(buf,"|%g",n);.|
|00000eb0| 20 20 20 20 78 6c 70 75 | 74 73 74 72 28 66 70 74 |    xlpu|tstr(fpt|
|00000ec0| 72 2c 62 75 66 29 3b 0d | 7d 0d 0d 2f 2a 20 70 75 |r,buf);.|}../* pu|
|00000ed0| 74 6f 63 74 20 2d 20 6f | 75 74 70 75 74 20 61 6e |toct - o|utput an|
|00000ee0| 20 6f 63 74 61 6c 20 62 | 79 74 65 20 76 61 6c 75 | octal b|yte valu|
|00000ef0| 65 20 2a 2f 0d 4c 4f 43 | 41 4c 20 70 75 74 6f 63 |e */.LOC|AL putoc|
|00000f00| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 69 6e 74 |...H..Mo|naco.int|
|00000f10| 66 28 62 75 66 2c 49 46 | 4d 54 2c 6e 29 3b 0d 20 |f(buf,IF|MT,n);. |
|00000f20| 20 20 20 78 6c 70 00 06 | 00 08 00 3c 00 24 01 53 |   xlp..|...<.$.S|
|00000f30| 01 fd 00 3c 00 24 01 53 | 01 fd 9b 2f 68 7c 00 00 |...<.$.S|.../h|..|
|00000f40| 09 c3 00 00 09 c3 00 00 | 08 9b 01 00 00 00 01 00 |........|........|
|00000f50| 00 00 01 4c 00 00 00 4c | 00 00 00 32 00 00 cc 24 |...L...L|...2...$|
|00000f60| 03 ae 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |.......2|..MPSR..|
|00000f70| 00 0a 03 ed ff ff 00 00 | 00 00 00 01 ab 84 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+